home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3plsar.arc / PRTSALES.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  2.9 KB  |  94 lines
  1. ********************************** (PRTSALES.PRG)
  2. STORE DTOC(DATE()) TO MDATE
  3. STORE YEAR(DATE()) TO XDATE
  4. STORE (1900.-XDATE) TO XDATE
  5. STORE SUBSTR(MDATE,1,2) TO R
  6. STORE 0.00 TO SALESTAX
  7. STORE 0.00 TO SUB
  8. STORE 0.00 TO AMTDUE
  9. CLEAR
  10. @ 13,19 SAY 'Are you sure you want to go through with this?'
  11. ?
  12. STORE ' ' TO OPTION
  13. WAIT '                                    ?  ' TO OPTION
  14. IF OPTION<>'Y'
  15.    RETURN
  16. ENDIF
  17. CLEA
  18. SET TALK OFF
  19. CLEAR
  20. STORE DATE() TO TOPLINE
  21. USE SALES
  22. GO BOTT
  23. STORE DTOC(DATE) TO TOPLINE
  24. GO TOP
  25. DO WHILE .NOT. EOF()
  26.    ? [-------------> I'm ONLY going to average for days without a 0 total.]
  27.    ? ì
  28. '=================================================================ì
  29. ====='
  30.    ?
  31.    ?
  32.    SET TALK ON
  33.    SET HEADING ON
  34.    SUM ì
  35. STORE_RING,COPY_RING,CHARGES,CREDITS_AR,STORE_CASH,COPY_CASHì
  36.  TO MSR,MCR,MCH,MCREDAR,MSTCSH,MCCASH
  37.    SUM STORE_RING+COPY_RING TO RINGS
  38.    SUM CREDITS_AR+STORE_CASH+COPY_CASH TO MDEPO
  39.    SUM STORE_CASH+COPY_CASH TO ALLCASH
  40.    SUM STORE_CASH+COPY_CASH+CHARGES TO NEWSALES
  41.    AVERAGE ì
  42. STORE_RING,COPY_RING,CHARGES,CREDITS_AR,STORE_CASH,COPY_CASH TO ì
  43. ASR,ACR,ACHG,ACRED,ASC,ACC
  44.    SUM STORE_CASH+COPY_CASH+CHARGES TO SUB
  45.    STORE SUB*.06 TO AMTDUE
  46.    ************!!! NEXT 3 LINES TAKE OUT 0 AMOUNT SATURDAYS !!!***************
  47.    AVERAGE COPY_RING TO ACR FOR COPY_RING<>0
  48.    AVERAGE COPY_CASH TO ACC FOR COPY_CASH<>0.00
  49.    AVERAGE CHARGES TO ACHG FOR CHARGES<>0.00
  50.    CLEAR
  51.    SET TALK OFF
  52.    SET DEVICE TO PRINT
  53.    SET PRINT ON
  54.    @ 1,0 SAY '==================================='
  55.    @ 1,37 SAY TOPLINE
  56.    @ 1,47 SAY '================================'
  57.    @ 2,1 SAY 'Store rings '
  58.    @ 2,30 SAY MSR PICTURE '9,999'
  59.    @ 2,47 SAY 'Average store ring '
  60.    @ 2,68 SAY ASR
  61.    @ 3,1 SAY '-----------------------------------------------------------------------------'
  62.    @ 4,1 SAY 'Charges to A/R '
  63.    @ 4,26 SAY MCH/1.06 PICTURE '99,999.99'
  64.    @ 4,47 SAY 'Average charge day'
  65.    @ 4,69 SAY ACHG PICTURE '99,999.99'
  66.    @ 5,1 SAY '-----------------------------------------------------------------------------'
  67.    @ 6,1 SAY 'Credits (A/R recieved) '
  68.    @ 6,26 SAY MCREDAR PICTURE '99,999.99'
  69.    @ 6,47 SAY 'Average A/R recieved '
  70.    @ 6,69 SAY ACRED PICTURE '99,999.99'
  71.    @ 7,1 SAY 'Store cash sales '
  72.    @ 7,26 SAY MSTCSH/1.06 PICTURE '99,999.99'
  73.    @ 7,47 SAY 'Average store day '
  74.    @ 7,72 SAY STR(ASC,6,2)
  75.    @ 8,1 SAY '+ Sales Tax collected'
  76.    @ 8,26 SAY AMTDUE PICTURE '99,999.99'
  77.    @ 9,1 SAY '                         ---------'
  78.    @ 10,1 SAY 'Deposits to bank '
  79.    @ 10,26 SAY MDEPO PICTURE '99,999.99'
  80.    @ 11,1 SAY 'Cash sales+charges'
  81.    @ 11,26 SAY NEWSALES/1.06 PICTURE '99,999.99'
  82.    @ 12,1 SAY 'Taxable sales'
  83.    @ 12,26 SAY MDEPO-AMTDUE PICTURE '99,999.99'
  84.    @ 13,0 SAY ì
  85. '-----------------------------------------------------------------ì
  86. --------------'
  87.    USE SALES
  88.    REPO FORM SALES PLAIN NOEJECT TO PRINT
  89.    EJECT
  90.    SET DEVICE TO SCREEN
  91.    SET PRINT OFF
  92. ENDDO
  93. RETURN
  94.